        AMSTRAD ACTION MAGAZINE
         DEC 1985 - ISSUE 003

----------------------------------------
**** Type-in Graphics Extravaganza *****
----------------------------------------

Type-in program listings hit the Amstrad Action pages this month - in response to your demands. We've taken the short programs here from a new book, The Amazing Amstrad Omnibus, whose 400 plus pages are chock full of interesting things to do with your Amstrad.
Each of the listings gives you an idea of what can be done with the Amstrad's graphics by running an attractive demonstration. As you can see, they're all pretty short so shouldn't have any of those horrible experiences where you spend hours keying a program in only to find out it won't run.
The Amazing Amstrad Omnibus, by Martin Fairbanks, costs 7.95 and is published by Interface Publications, 9-11 Kensington High Street, London W8 5NP.

----------------------------------------
001 - Zebra Windmills
----------------------------------------

This demonstration program uses the wide Amstrad pallette to create whirling, spinning shapes that are so pretty you could sit and watch them for hours. You'll understand the name as soon as you see the program running.

----------------------------------------

10 REM Zebra Windmills
20 REM BY Steven Loze
30 REM ---------------
40 RANDOMIZE TIME
50 GOSUB 280:REM initialise
60 WHILE NOT finished
70 FOR change=1 TO 2
80 RAD:IF change=2 THEN DEG
90 CLS
100 FOR amstrad=1 TO 360 STEP 10*RND
110 PLOT 320,200
120 DRAW 320+250*SIN(amstrad),((amstrad MOD(3)+1)
130 NEXT amstrad
140 GOSUB 170:REM pen changes
150 NEXT change
160 WEND
170 REM pen changes
180 FOR j=1 TO 26
190 FOR k=1 TO 3
200 INK k,j
210 FOR z=1 TO 100:NEXT z
220 INK k,0
230 NEXT k
240 NEXT j
250 GOSUB 280
260 RETURN
270 REM ----------
280 REM initialise
290 MODE 1
300 INK 0,0:INK 1,26:INK 2,24:INK 3,6:BORDER 0
310 RETURN


----------------------------------------
002 - Lissajoux Figures
----------------------------------------

Jules Lissajoux was a French physicist of the last century who made a study of the movement of particles under the action of periodic motion, acting at right angles to each other. Bodies moving in this way create intricate patterns as they dance around each other.
In this program - not written by M. Lissajoux - frequencies are generated at random (lines 120 and 130), starting a new figure each time you press a key.

----------------------------------------

10 REM Random Lissajoux Figures
20 REM 
30 REM Creates random Lissajoux
40 REM  figures. Press any key
50 REM     for a new design
60 REM 
70 RANDOMIZE TIME
80 MODE 1:INK 0,0:BORDER 0:INK 1,2:INK 2,6:INK 3,24
90 IF INKEY$<>"" THEN 90
100 REM --------------------
110 WHILE NOT finished
120 p=INT(RND*3)+1
130 loz=(INT(RND*3)+1)/0.8
140 gf=0
150 PLOT 300+120*SIN(gf),200+120*COS(gf*loz),p
160 REM --------------------
170 WHILE INKEY$=""
180 gf=gf+0.1
190 DRAW 300+120*SIN(gf),200+120*COS(gf*loz),p
200 IF RND>0.9 THEN p=p+1:IF p=4 THEN p=1
210 WEND
220 CLS
230 WEND


----------------------------------------
003 - Dionysian Spiral
----------------------------------------

This is another very attractive graphics demonstration program. Don't worry about the flashing backgrounds at the beginning - they're intentional.

----------------------------------------

10 REM   Dionysian Spiral
20 REM * Highly Effective *
30 RANDOMIZE 
40 INK 0,6:BORDER 6,2:MODE 0:CLG 0:PAPER 0:SPEED INK 3,7
50 vars=200:vim=60
60 DIM z(14)
70 FOR k=0 TO 14
80 INK k+1,k
90 NEXT k
100 INK 7,6,2:INK 2,24,0:INK 12,16,5
110 ORIGIN (vars+2*vim),vars
120 FOR alan=103 TO 0 STEP -1
130 sugar=alan*PI/52
140 MOVE COS(sugar)*-vim,SIN(sugar)*-vars
150 DRAW COS(sugar)*318,SIN(sugar)*vim,alan MOD 13+1
160 NEXT alan
170 BORDER 6
180 REM -------------------------
190 WHILE NOT finished
200 jump=0.3+RND
210 FOR t=1 TO 16+jump STEP jump
220 FOR k=0 TO 14
230 INK k+1,k+t
240 IF INKEY$<>"" THEN 350
250 NEXT k
260 NEXT t
270 FOR t=16 TO 2-jump STEP -jump
280 FOR k=0 T0 14
290 INK k+1,k+t
300 IF INKEY$<>"" THEN 350
310 NEXT k
320 NEXT t
330 IF RND>0.55 THEN h=INT(RND*15):INK 0,h:BORDER h
340 WEND
350 MODE 1


----------------------------------------
All files typed in and saved to .dsk
file (NVG) by Mr. Michael N. Till.
..The Devil's Phoenix..

Any problems or queeries please
e-mail: redstick@hotmail.co.uk